Up.asp 6KBBS ASP版 V7.1 - ASP源码程序

www.gusucode.com > 6KBBS ASP版 V7.1 > 6KBBS ASP版 V7.1\code\bbs\Up.asp
    <!--#include file="inc.asp"-->
<%
Cssstyleid=request.cookies(prefix&"1")("styleid")
if Cssstyleid="" then Cssstyleid=GetAutoStyle()

Function GetAutoStyle()
		dim AutoSid
		set rs=conn.execute("select*from style where autouse=true")
			If not rs.Eof Then AutoSid=rs("styleid")
		set rs=nothing
		
		'写入cookies
		Response.cookies(prefix&"1")("styleid")=AutoSid
		Response.Cookies(prefix&"1").Expires=date+365

		GetAutoStyle=AutoSid
End Function

if style="" then
	set rs=conn.execute("select * from style")
		do while not rs.eof
			style=style&"<a href=""Cookies.asp?action=style&id="&rs("id")&""">"&rs("stylename")&"</a><br>"
			rs.movenext
		loop
	set rs=nothing
	application(prefix&"style")=style
end if
if plugin="" then
	set rs=conn.execute("select * from plugin")
		do while not rs.eof
			plugin=plugin&"<a href="""&rs("pluginlink")&""">"&rs("pluginname")&"</a><br>"
			rs.movenext
		loop
	set rs=nothing
	application(prefix&"plugin")=plugin
end if
styleid="skin/"&Cssstyleid&"/images"
Response.Write"<head>"&VbNewLine
Response.Write"	<title>"&RemoveHTML(TitleStr)&"</title>"&VbNewLine
Response.Write"	<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"&VbNewLine
Response.Write"	<meta name=""keywords"" content="""&RemoveHTML(replace(TitleStr(),"-",","))&""">"&VbNewLine
Response.Write"	<meta name=""description"" content="""&RemoveHTML(TitleStr)&""">"&VbNewLine
Response.Write"	<link rel=""stylesheet"" type=""text/css"" href=""skin/"&Cssstyleid&"/global.css"">"&VbNewLine
Response.Write"	<SCRIPT src=""inc/menu.js""></SCRIPT>"&VbNewLine
Response.Write"	<script>parent.window.document.title='"&RemoveHTML(TitleStr)&"';</script>"&VbNewLine
Response.Write"</head>"&VbNewLine
%>
<%
dim mode
mode=Request.Cookies(prefix&"1")("bbsmode")
if mode="" or mode=2 then
%>
<!--#include file="BBSTop.asp"-->
<%end if%>
<%
if lguserid<>"" then
	dim newnum
	newnum=conn.execute("select count(id) from sms where touserid="&lguserid&" and new=true")(0)
	if newnum>0 then
		Response.Write"<div class=newmes>"&_
		"<div class=newmestitle>新留言</div><div class=newmesbody><a href=Sms.asp>你的留言板有 <b>"&newnum&"</b> 条新留言，请及时查收。</a></div>"&_
		"</div>"
	end if
end if

Response.write"<div class=yourposition>"
call bbsurl		'获取当前所在位置
Response.write"</div>"
%><%
if bd<>0 then
	if bdad(0)<>"" then response.write "<div class=topad>"&bdad(0)&"</div>"
end if

Response.Write"<DIV id=menuDiv1 style='Z-INDEX: 2; VISIBILITY: hidden;POSITION: absolute;'></DIV>"



%><%time1=timer()		'计时器%>